home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / constructions / gergonne.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.4 KB  |  33 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.372283, 0.407609, .green, .L0, "1");
  3. v2 = .free(-0.168478, -0.288043, .green, .L0, "2");
  4. v3 = .free(0.116848, -0.0461957, .green, .L0, "3");
  5. l1 = .l.vv(v1, v3, .green, .L0);
  6. l2 = .l.vv(v2, v3, .green, .L0);
  7. l3 = .l.vv(v2, v1, .green, .L0);
  8. c1 = .c.vv(v2, v3, .invisible, .L0);
  9. v4 = .v.lc(l3, c1, 1, .invisible, .L0, .plus);
  10. v5 = .v.lc(l3, c1, 2, .invisible, .L0, .plus);
  11. v6 = .v.vvmid(v5, v3, .invisible, .L0, .plus);
  12. v7 = .v.vvmid(v3, v4, .invisible, .L0, .plus);
  13. l4 = .l.vv(v2, v7, .red, .L0, .longline);
  14. l5 = .l.vv(v2, v6, .red, .L0, .longline);
  15. c2 = .c.vv(v3, v2, .invisible, .L0);
  16. v8 = .v.lc(l1, c2, 1, .invisible, .L0, .plus);
  17. v9 = .v.lc(l1, c2, 2, .invisible, .L0, .plus);
  18. v10 = .v.vvmid(v8, v2, .invisible, .L0, .plus);
  19. v11 = .v.vvmid(v2, v9, .invisible, .L0, .plus);
  20. l6 = .l.vv(v3, v11, .red, .L0, .longline);
  21. l7 = .l.vv(v10, v3, .red, .L0, .longline);
  22. v12 = .v.ll(l7, l5, .magenta, .L0, .plus, "I");
  23. l8 = .l.vv(v1, v12, .red, .L0, .longline);
  24. l10 = .l.vlperp(v1, l8, .red, .L0, .longline);
  25. l11 = .l.vlperp(v12, l1, .invisible, .L0, .longline);
  26. v13 = .v.ll(l11, l1, .yellow, .L0, .plus);
  27. c3 = .c.vv(v12, v13, .yellow, .L0);
  28. l12 = .l.vv(v13, v2, .yellow, .L0, .longline);
  29. l13 = .l.vlperp(v12, l2, .invisible, .L0, .longline);
  30. v14 = .v.ll(l13, l2, .yellow, .L0, .plus);
  31. l14 = .l.vv(v14, v1, .yellow, .L0, .longline);
  32. v15 = .v.ll(l12, l14, .cyan, .L0, .plus, "Gergonne");
  33.